home *** CD-ROM | disk | FTP | other *** search
/ NT Sources / Infomagic - NT Source Volume 1 (Disc 1 of 2).iso / network / js15full.exe / tickform.ht_ / tickform.ht
Text File  |  1998-02-15  |  1KB  |  56 lines
  1. <!---Java Script code by Java Script It! www.computan.on.ca/~todd/jscript --><html>
  2.  
  3. <head>
  4.  
  5. <title>Statusbar Message Maker</title>
  6.  
  7. <script language="JavaScript">
  8. <!-- Hide the script from old browsers --
  9.  
  10. //======================================================
  11. // Java Script code by Java Script It!   www.computan.on.ca/~todd/jscipt
  12. //======================================================
  13.  
  14. var timerID = null;
  15. var timerRunning = false;
  16. var id,pause=0,position=0;
  17.  
  18. function txtScroll() {
  19. var i,x
  20. var message="A scrolling text message that endlessly loops while the user is on this page. Use carefully, as not to sicken the user.";x=(60/message.length)+1;
  21.  for(i=0;i<=x;i++) message+=" "+message;
  22.  document.tickerTape.tickerTape.value=message.substring(position,position+60);
  23.  if(position++==128) position=2;
  24. id=setTimeout("txtScroll()",1000/10);}
  25. function action() {
  26.         if(!pause) {
  27.                 clearTimeout(id);
  28.                 pause=1; }
  29.  
  30.         else {
  31.                 ticker();
  32.                 pause=0; }
  33.  }
  34.  
  35. // --End Hiding Here -->
  36. </script>
  37.  
  38. <head>
  39.  
  40. <body onLoad="txtScroll()"  bgColor="#FFFFFF" text="#000000">
  41.  
  42. This is what a Ticker Tape looks like in in a form text input....<p>
  43.  
  44. <div align=center>
  45. <form name="tickerTape">
  46. <input type="text" name="tickerTape" size="50">
  47. </form>
  48. </div>
  49.  
  50. </body>
  51.  
  52. </html>
  53.  
  54.  
  55.  
  56.